home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Mega_magazine_1_19xx_Venturi.d64 / miasto v1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  240 lines
  1. 1 clr
  2. 3 a=100000
  3. 10 poke53280,0:poke53281,0:poke646,1:printchr$(147)
  4. 20 printchr$(158)"piotr stachowiak wita w grze pod tytu\em
  5. 21 [153]"
  6. 22 printchr$(30)"              m i a s t o
  7. 23 [153]"
  8. 40 print"
  9. 41 [153]"
  10. 42 print"
  11. 43 [153]"
  12. 44 print"
  13. 45 [161]a$:[139]a$[178]""[167][137]45
  14. 49 ak[178]ak[170]1
  15. 50 [153][199](147)[199](5)
  16. 51 [139]ak[178]25[167][137]900
  17. 60 [153]"  ,
  18. 61 print"ktora opcje wybierasz ???
  19. 62 [153]"    '
  20. 63 print"
  21. 64 [153]"                           ,
  22. 65 print"                 budowa domow - f1
  23. 66 [153]"
  24. 67 print"                      fabryki - f2
  25. 68 [153]"
  26. 69 print"                       szko\y - f3
  27. 70 [153]"
  28. 71 print"                      policja - f4
  29. 72 [153]"
  30. 73 print"                    pogotowie - f5
  31. 74 [153]"
  32. 75 print"                       ludzie - f6
  33. 76 [153]"
  34. 77 print"                       bilans - f7
  35. 78 [153]"
  36. 79 print"                  koniec tury - f8
  37. 80 [153]"
  38. 81 print"
  39. 82 [153]"masz "a"$      tura "ak
  40. 83 [153]"
  41. 85 geta$:ifa$=""thengoto85
  42. 86 ifa$=chr$(133)thengoto100
  43. 87 ifa$=chr$(137)thengoto160
  44. 88 ifa$=chr$(134)thengoto250
  45. 89 ifa$=chr$(138)thengoto330
  46. 90 ifa$=chr$(135)thengoto460
  47. 91 ifa$=chr$(139)thengoto600
  48. 92 ifa$=chr$(136)thengoto740
  49. 93 ifa$=chr$(140)thengoto800
  50. 94 goto50
  51. 95 :
  52. 96 :
  53. 97 :
  54. 98 :
  55. 99 :
  56. 100 printchr$(147):aa=0
  57. 110 print"                ,
  58. 111 [153]"ile budujesz domow ?  (1 dom=100$)
  59. 120 input aa
  60. 125 if aa<=0thengoto50
  61. 130 if aa*100>athengoto150
  62. 139 print"         ,"
  63. 140 print"zbudowa\es "aa"domow":ab=ab+aa
  64. 141 a=a-aa*100
  65. 142 getb$:ifb$=""thengoto142
  66. 143 goto50
  67. 150 print"masz za ma\o kasy na tyle domow"
  68. 151 getb$:ifb$=""thengoto151
  69. 155 goto 50
  70. 160 printchr$(147):ad=0
  71. 169 print"     [160]
  72. 170 [153]"ile budujesz fabryk ? (1 fabryka=250$)"
  73. 175 [133]ad
  74. 180 [139]ad[179][178]0[167][137]50
  75. 190 [139]ad[172]250[177]a[167][137]230
  76. 200 [153]"
  77. 205 print"zbudowa\es "ad"fabryk":ac=ac+ad
  78. 210 a=a-ad*250
  79. 215 getb$:ifb$=""thengoto215
  80. 220 goto50
  81. 230 print"masz za ma\o kasy na tyle fabryk"
  82. 240 getb$:ifb$=""thengoto240
  83. 245 goto50
  84. 250 printchr$(147):af=0
  85. 253 print"                ,
  86. 255 [153]"ile budujesz szko\ ? (1 szko\a=150$)
  87. 260 inputaf
  88. 270 ifaf=<0thengoto50
  89. 275 ifaf*150>athengoto310
  90. 280 print"         ,          "
  91. 285 print"zbudowa\es "af" szko\":ae=ae+af
  92. 290 a=a-af*150
  93. 295 getb$:ifb$=""thengoto295
  94. 300 goto50
  95. 310 print"masz za ma\o kasy na tyle szko\"
  96. 315 getb$:ifb$=""thengoto215
  97. 320 goto50
  98. 330 printchr$(147)
  99. 340 ifa<150thengoto440
  100. 343 ifag=0thengoto370
  101. 345 print"
  102. 350 [153]"masz juz policje - jedna policja starczy
  103. 355 getb$:ifb$=""thengoto355
  104. 360 goto50
  105. 370 printchr$(147)
  106. 375 print"
  107. 380 [153]"policja kosztuje 150$. kupujesz ? (t/n)
  108. 390 getc$:ifc$=""thengoto390
  109. 395 ifc$="t"thengoto420
  110. 400 ifc$="n"thengoto50
  111. 410 goto50
  112. 420 print"kupi\es policje ":ag=1:a=a-150
  113. 425 getb$:ifb$=""thengoto425
  114. 430 goto50
  115. 440 print"masz za ma\o kasy na policje"
  116. 445 getb$:ifb$=""thengoto445
  117. 450 goto50
  118. 460 printchr$(147)
  119. 470 ifa<150thengoto570
  120. 473 ifah=0thengoto500
  121. 475 print"
  122. 480 [153]"masz juz pogotowie - jedno starczy
  123. 485 getb$:ifb$=""thengoto485
  124. 490 goto50
  125. 500 printchr$(147)
  126. 505 print"
  127. 510 [153]"pogotowie kosztuje 100$.kupujesz ? (t/n)
  128. 520 getd$:ifd$=""thengoto520
  129. 525 ifd$="t"thengoto550
  130. 530 ifd$="n"thengoto50
  131. 540 goto50
  132. 550 print"kupi\es pogotowie ":ah=1:a=a-100
  133. 555 getb$:ifb$=""thengoto555
  134. 560 goto50
  135. 570 print"masz za ma\o kasy na pogotowie"
  136. 585 getb$:ifb$=""thengoto585
  137. 590 goto50
  138. 600 printchr$(147):aj=0
  139. 615 print"                       "
  140. 620 print"ile sprowadzasz ludzi ?"
  141. 625 inputaj
  142. 630 ifaj+ai>ab*100thengoto680
  143. 640 print"           ,"
  144. 650 print"sprowadzi\es "aj"ludzi":ai=ai+aj
  145. 660 getb$:ifb$=""thengoto660
  146. 670 goto50
  147. 680 print"
  148. 690 [153]"niestarczy ci domow na tyle ludzi !!!"
  149. 695 [153]"              ,"
  150. 700 [153]"kup wiecej domow"
  151. 710 [153]"        '"
  152. 720 [161]b$:[139]b$[178]""[167][137]720
  153. 730 [137]50
  154. 740 [153][199](147)
  155. 750 [153]"
  156. 751 print" posiadasz :
  157. 752 [153]"
  158. 753 print"             "a"$
  159. 754 [153]"
  160. 755 print"             "ab"domow
  161. 756 [153]"
  162. 757 print"             "ac"fabryk
  163. 758 [153]"
  164. 759 print"             "ae"szko\
  165. 760 [153]"
  166. 761 print"             "ai"ludzi
  167. 762 [153]"
  168. 765 ifag=1thenprint"              policje
  169. 766 [153]"
  170. 767 ifah=1thenprint"              pogotowie
  171. 768 [153]"
  172. 769 print"
  173. 770 [153]"
  174. 771 print"
  175. 772 [153]"
  176. 780 getb$:ifb$=""thengoto780
  177. 790 goto50
  178. 800 printchr$(147)
  179. 805 ifai=<100thengoto50
  180. 810 ifai<ab*100thena=a+(ab*100)-ai
  181. 820 ifai<ac*200thena=a+(ac*200)-ai
  182. 830 ifac*100<aithena=a-(ac*100)-ai
  183. 840 ifac<ai*0.25thena=a-ai*0.25
  184. 850 ifag=0thena=a-50
  185. 860 ifah=0thena=a-50
  186. 870 goto49
  187. 900 al=al+a
  188. 910 al=al+(ab*100)
  189. 920 al=al+(ac*250)
  190. 930 al=al+(ag*150)
  191. 940 al=al+(ah*100)
  192. 950 al=al+(ae*150)
  193. 970 ifal<100000thengoto1020
  194. 980 ifal>100000<200000thengoto1060
  195. 990 ifal>200000<1000000thengoto1100
  196. 1000 ifal>100000thengoto1140
  197. 1020 printchr$(147)
  198. 1030 print"
  199. 1031 [153]"cieniutko!  po sprzedaniu zgromadzonego"
  200. 1032 [153]"     przez ciebie majatku masz tylko"
  201. 1033 [153]"                '
  202. 1034 print"                  "al"$
  203. 1035 [153]" to mniej niz dosta\es kasy na poczatku"
  204. 1036 [153]"zacznij od poczatku  - space       '"
  205. 1040 [161]b$:[139]b$[178]""[167][137]1040
  206. 1050 [137]1
  207. 1060 [153][199](147)
  208. 1070 [153]"
  209. 1071 print"nawet niezle zgromadzi\es :"al"$
  210. 1072 [153]"            .        ,
  211. 1073 print"to wiecej niz dosta\es na poczatku !!!"
  212. 1074 print"     '                        '
  213. 1075 [153]"
  214. 1076 print"zacznij jeszcze raz - space
  215. 1080 [161]b$:[139]b$[178]""[167][137]1080
  216. 1090 [137]1
  217. 1100 [153][199](147)
  218. 1110 [153]"
  219. 1111 print" - brawo ! masz na kacie "al"$
  220. 1112 [153]"
  221. 1113 print"to bardzo dobry rezultat gratulacje !!!"
  222. 1114 print"
  223. 1115 [153]"zacznij jeszcze raz - space"
  224. 1116 [153]"
  225. 1120 getb$:ifb$=""thengoto1120
  226. 1130 goto1
  227. 1140 printchr$(147)
  228. 1150 print"brawo !!! brawo !!! brawo !!! brawo!!!
  229. 1151 [153]"
  230. 1152 print"zgromadzi\es "al"$   !!!
  231. 1153 [153]"                           ,
  232. 1154 print"to fantastyczny wynik jestes mistrzem !"
  233. 1155 print"
  234. 1156 [153]"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  235. 1157 print"
  236. 1158 [153]"zagraj jeszcze raz - space"
  237. 1159 [153]"
  238. 1160 getb$:ifb$=""thengoto1160
  239. 1170 goto1
  240.